home *** CD-ROM | disk | FTP | other *** search
/ Larry Magid's Essential Internet / Larry Magid's Essential Internet (Quarterdeck Corporation)(1995).ISO / qsockpro.qip / CCINET.MPS < prev    next >
Text File  |  1995-10-09  |  1KB  |  56 lines
  1. # Quarterdeck CCINet SLIP or PPP script
  2.  
  3. STRING username
  4. STRING password
  5. STRING IPaddress
  6. STRING framing
  7.  
  8. # TRACE ON
  9.  
  10. SetTimeout 90
  11.  
  12. # Get username from access method
  13. CfgGetValue "Username" username
  14. IF result = 0 THEN
  15.     ABORT "Can't load Username from qdeck.ini"
  16. ENDIF
  17.  
  18. # get password from access method
  19. CfgGetValue "Password" password
  20. IF result = 0 THEN
  21.     ABORT "Can't load Password from qdeck.ini"
  22. ENDIF
  23.  
  24. # get framing from access method
  25. CfgGetValue "Framing" framing
  26. IF result = 0 THEN
  27.     ABORT "Can't load Framing (SLIP or PPP) from qdeck.ini"
  28. ENDIF
  29.  
  30. # DELAY 2
  31. # CommSend "%r"
  32.  
  33. CommWaitFor    "sername:"
  34. DELAY 2
  35.     CommSend username
  36.     CommSend "%r"
  37.  
  38. CommWaitFor    "assword:"
  39.     DELAY 2
  40.     CommSend password
  41.     CommSend "%r"
  42.  
  43. CommWaitFor ">"
  44.  
  45. IF framing = "MPSLIP" THEN
  46.     CommSend "slip%r"
  47.     CommWaitFor "our address is"
  48.         CommReadIPaddr IPAddress                   # IP address should be next word
  49.         CfgSetValue    "IPAddress" IPaddress     # store the IP address
  50.     PRINT "IPAddress ="; IPAddress
  51. ELSE
  52.     CommSend "ppp default%r"
  53. ENDIF
  54.  
  55. END
  56.